cv <- function(data, na.rm = TRUE) {
	return (stdev(data, na.rm)/abs(mean(data, na.rm=na.rm)))
}